insert_VS_VS Function

private elemental function insert_VS_VS(string, start, substring) result(ins_string)

Insert a varying substring into a varying string

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string
integer, intent(in) :: start
type(varying_string), intent(in) :: substring

Return Value type(varying_string)


Source Code

  elemental function insert_VS_VS (string, start, substring) result (ins_string)

    type(varying_string), intent(in) :: string
    integer, intent(in)              :: start
    type(varying_string), intent(in) :: substring
    type(varying_string)             :: ins_string


    ins_string = insert(char(string), start, char(substring))

! Finish

    return

  end function insert_VS_VS